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1. ABSTRACT 



THIS PROGRAM TESTS THE DCA INSTRUCTION OF THE PDP-8/E. THE 

OCA INSTRUCTION ADDRESS, OPERANO ADDRESS, AND OPERANDS ARE TAKEN 

FROM A RANDOM NUMBER GENERATOR. 



2, REQUIREMENTS 
2.1 EQUIPMENT 



P0P-8/E EQUIPPED WITH TELETYPE. 

2.2 STORAGE 

I^L 0lAG ur STIC / H0GRAM IS ST0RE0 * N LOCATIONS 0000 THROUGH 
?ur 7 ^,J£w PR0G,UM USES 0410 THROUGH 7600 F R A TEST AREA. 
THE §INA«Y LOADER MUST BE STOREO IN THE LAST MEMORY PAGE* 

2.3 PRELIMINARY PROGRAMS 

MAINDEC-8E-D0A(N). AND MA INDEC-8E-D0B<N) 
3. LOADING PROCEDURE 

3.1 METHOD 



THE STANOARO BlNAR* LOADER IS USED. 
4- STARTING PROCEDURE 

4.1 CONTROL SWITCH SETTINGS 

SR0 (0) HALT AFTER ERROR PRINTOUT. 
SRI (1) BYPASS ERROR PRINTOUT 

til unf-S ^!!r2\ C0NSTANT (1) ' SELECT RANDOM "FROM" (0), 

^O^OPERAND^ ADDRESS" CONSTANT d), SELECT RANDOM OPERAND 

SR4 HOLD "OPERAND" CONSTANT (1). SELECT RANDOM "OPERAND" (0). 
4.2 STARTING ADDRESS 

0200 



4,3 



OPERATOR ACTION 



5. 



1, SET tR TO 0200. 

2, PRESS LOAD ADDRESS 

3, SET BR TO 0000 

4, PRESS CLEAR THEN CONTINUE 

OPERATING PROCEOURE 



6. 

6.1 



SAME AS IECTION 4. 
ERRORS 



ERROR PRINTOUTS 



F XXXX 
L RRRR 
E 
FROM, 

ADDRESS, 

OPERAND 
lOCATIONi 

CONTENTSi 
END, 



YYYY 
MMMM 



NNNN 



F XXXX WHERE XXXX « ADDRESS OF THE DCA 
INSTRUCTION 

A YYYY WHERE YYYY = ADDRESS WHERE DCA WILL 
DEPOSIT OPERAND 

NNNN WHERE NNNN = THE OPERAND TO BE OEPOSITED. 

L RRRR WHERE RRRR « A NONZERO LOCATION SOME- 
WHERE IN THE TEST FIELD, 

C MMMM WHERE MMMM « CONTENTS OF LOCATION RRRR. 

C THIS LETTER IS TYPED TO INFORM THAT THE 
ENTIRE TEST AREA HAS BEEN SEARCHED FOR 
NONZERO OPERANDS, 



6,2 EaAMPLES 



A. THE FOLLOWING IS A TYPICAL ERROR PRINTOUT! 

F 4S7J A 020? 2529 
■ L 0103 C 2527 
C 

LINE 1 IS SIMPLY A STATEMENT OF THE PROBLEM. IT SAYS THAT A OCA 
INSTRUCTION LOCATED AT 4572 TRIED To DEPOSIT THE OPERAND 2525 
INTO LOCATION 0205. 

LINE 2 SAYS THAT INSTEAD OF FINDING A 2525 IN LOCATION 0205, 
THE PROGRAM FOUND A 2527. BIT 10 WAS "PICKED UP." THE E 
SIGNIFIES THAT A SEARCH OF THE TEST AREA SHOWEO ONLY THE ABOVE 
PRINTED LOCATIONS DIFFERING FROM WHAT THEY SHOULD BE. 

B. THE FOLLOWING IS A TYPICAL ERROR PRINTOUT! 

F 4572 A 0205 2525 

L 0215 C 2525 

E 

LINE 1 IS A STATEMENT OF THE PROBLEM AS IN THE PREVIOUS EXAMPLE. 
LINE 2 SAYS THAT LOCATION 0215 CONTAINS 2525, AND THE E ON LINE 
3 SAYS THAT NO OTHER LOCATIONS WERE DISTURBED. IT IS APPARENT 
THEN THAT THE OCA INSTRUCTION DEPOSITED ITS OPERAND NOT INTO 
LOCATION 0205, BUT INTO LOCATION 0215. BIT 8 WAS "PICKED UP". 

6.3 ERROR RECOVERY 

TO ENTER A SCOPE MOOE LOOP, SET SR0 TO A 0. WHEN A HALT OCCURS 
FOLLOWING AN ERROR, SET SWITCHES 1, 2, 3, AND 4 AND PUSH CON- 
TINUE. A SCOPE MODE LOOP IS ENTERED USING THE CONDITIONS 
DESCRIBED BY THE LAST ERROR PRINTOUT. 

IF IT IS DESIRED TO ENTER A SCOPE MODE LOOP USING A SPECIFIC 
S St 0F c c0NDITI °N 8 ' S T O p THE PROGRAM AND MAKE THE FOLLOWING 

A. ENTER DESEED FROM ADDRESS INTO MEMORY LOCATION 0167. 

B. ENTER DESJRED OPERAND ADDRESS INTO MEMORY LOCATION 0166. 

C. ENTER DESJRED OPERAND INTO MEMORY LOCATION 0170. 
RESTART THE PROGRAM USING A CONTROL SWITCH SETTING OF 3600. 



7, RESTRICTIONS (NONE) 

8, MISCELLANEOUS 
8,1 EXECUTION TIME 



3904 random tests/Pass 

7 passes/bill 

27,328 random tests/pass 

9, program description 



MEMORY LOCATIONS 0410 THROUGH 7600 ARE DESIGNATED AS TEST 
LOCATIONS* AND EEROES ARE DEPOSITED INTO EACH AT THE BEGINNING 
OF THE PROGRAM. THE PROGRAM NOW SELECTS A LOCATION FOR THE DCA 
INSTRUCTION, THIS SELECTED LOCATION MAY BE SPECIFIED OR RANDOM. 
DEPENDING UPON THE SWITCH REGISTER SETTING. THE OPERAND AND 
OPERAND ADDRESS ARE SELECTED IN A SIMILAR MANNER. THE PROGRAM 
NOW JUMPS TO THE TEST DCA. PERFORMS THE INSTRUCTION, THEN JUMPS 
BACK TO A CHECKING ROUTINE, THE CHECKING ROUTINE VERIFIES THAT 
THE OPERAND WAS DEPOSITED CORRECTLY. IF AN ERROR IS DETECTED, 
THE ERROR ROUTINE SEARCHES THE TEST AREA AND PRINTS THE CONTENTS 
OF ANY NONIERO LOCATION EXCEPT FOR THE TEST DCA INSTRUCTION. 
UPON COMPLETION OF THIS SCAN THROUGH THE TEST AREA, AN E IS 
PRINTED AND A NEW TEST IS BEGUN. 

THE TELETYPE BELL RINGS AFTER 7 PASSES OF 3904 TEST/PASS, 



/RANDOM DCA TEST 
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/RANDOM DCA TEST 
/SR0(0)«HALT ON ERROR 
/SR1U>*NQ PRINTOUTS 
/SR2(1)»C0NSTANT FROM 
/SR3(1)»C0NSTANT OPERAND ADDRESS 
/SR4(1)»C0NSTANT OPERAND 





0000 


•0 






0000 


0000 









0001 


5001 




JMP 


1 


0002 


0002 




2 




0003 


0003 




3 




0004 


0000 









0005 


0000 









0006 


7771 


CNTg, 


7771 


0007 


0400 


(•SUB, 


SUB 




0010 


0000 


WORK, 







0011 


0000 


CNT, 







0012 


0300 


M7500, 


-7500 


0013 


0207 


BEL, 


207 




0014 


0003 


THREE, 


3 








/CLEAR 


MEMORY 




0020 


• 20 






0020 


1175 


START, 


TAD 


LIMLO 


0021 


3010 




DCA 


WORK 


0022 


3410 




DCA 


I WORK 


0023 


1010 




TAD 


WORK 


0024 


7041 




CIA 




0025 


1174 




TAD 


LIMHI 


0026 


7640 




8IA 


CLA 


0027 


9022 




JMP 


START*2 






/CHECK 


FOR CONSTANT 


0030 


7604 


CK1, 


LAS 




0031 


7006 




RTL 




0032 


7510 




SPA 




0033 


9052 




JMP 


CK2 






/GET FROM ADDRESS 


0034 


4194 




JMS 


GENRAN 


0035 


3167 




DCA 


FROM 


0036 


1167 




TAD 


FROM 


0037 


7510 




SPA 




0040 


9046 




JMP 


.♦6 


0041 


7041 




CIA 




0042 


1175 




TAD 


LIMLO 


0043 


7710 




SPA 


CLA 


0044 


9092 




JMP 


CK2 


0045 


9034 




JMP 


CK1*4 


0046 


7041 




CIA 




0047 


1174 




TAD 


LIMHI 


0050 


7710 




SPA 


CLA 


0051 


9034 




JMP 


CK1*4 
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/CHECK FOR CONSTANT OPERAND ADDRESS 

0052 7604 CK2, LAS 

0053 7006 RTL 

0054 7004 RAL 

0055 7510 SPA 

0096 9075 JMP CK3 

/GET OPERAND ADDRESS 

0097 4114 JM8 GENRAN 
0060 3166 QCA OPAD 

00*1 1166 TAD OPAD 

0062 7510 SPA 

0063 5071 JMP .*6 

0064 7041 CIA 

0065 1175 TAO LIMLO 

0066 7710 SPA CLA 

0067 5075 JMP CK3 

0070 5057 JMP CK2*5 

0071 7041 CIA 

0072 1174 TAD LlMHI 

0073 7710 SPA CLA 

0074 5057 JMP CK2*5 

/CHECK FOR CONSTANT OPERAND 

0075 7604 CK3, LAS 

0076 7006 RTL 

0077 7006 RTL 

0100 7710 SPA CLA 

0101 5104 JMP CK4 

/GET OPERAND 

0102 4154 JMS GENRAN 

0103 3170 OCA OPER 



/CHECK FOR FROM*lsOPERAND ADDRESS 
/CHECK FOR FROMsOPERAND ADDRESS 



0104 


1167 


CK4, TAD FROM 


0105 


7041 


CIA 


0106 


1166 


TAD OPAD 


0107 


7450 


SNA 


0110 


5030 


JMP CK1 


0111 


7041 


CIA 


0112 


7040 


CMA 


0113 


7650 


SNA CLA 


0114 


9030 


JMP CK1 
/PLACE THE INSTRUCTIONS 


0115 


11*1 


TAD DCA1 


0116 


3567 


DCA I FROM 


0117 


1167 


TAD FROM 


0180 


7001 


IAC 


0121 


3173 


DCA FROMP1 


0122 


1172 


TAO JMP1 
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0123 3973 DCA I FROMPl 

0124 1170 T AD oPER 

0125 7000 MOP 

0126 5567 JMP I FROM /GO OUT TO TEST 
01 * 7 740 2 HLT /JMP FAILURE 

/RETURN FROM TEST 

0130 1566 BACK, TAD I OPAD 

0131 7041 CIA 

0132 1170 T AO OPER 

0133 7640 SIA CLA 

0134 4577 JMI I AERR 

0135 3566 OCA I OPAD 

0136 3567 DCA I FROM 

0137 3573 DCA I FROMPl 

/RING BELL AFTER 7 PASSES OF 3904 TEST PER PASS 

0140 1011 TAO CNT 

0141 7001 i A.C 
01*2 3011 DCA CNT 
0143 1011 TAD CNT 
01*4 101? TAD M7500 

0145 7640 S2A CLA 

0146 5030 JMP CK1 
0H7 3011 DCA CNT 

0150 2006 ISZ CNT2 

0151 5030 jMP CK1 
0192 4407 JM S J psub 

0153 5030 j M p OKI 

/RANOOM NUMBER GENERATOR 

0154 0000 GENRAN. 

0155 7200 CLA 

0196 1165 TAD RANUM 

0157 7104 r aL cLL 

0160 7430 S1L 

0161 1014 TAD THREE 

0162 3165 DCA RANUM 

0163 1165 TAD RANUM 

0164 5554 jMP J GENRAN 
01*5 2525 RANUM. 2525 

/CONSTANTS AND VARIABLES 



0166 


3000 


OPAD. 


3000 


0167 


3001 


FROM. 


3001 


0170 


2525 


OPER, 


2525 


0171 


3566 


DCAl, 


DCA I OPAD 


0172 


5130 


JMPl, 


JMP BACK 


0173 


3002 


FROMPl, 


3002 


0174 


7600 


LIMMI. 


7600 


0175 


0410 


LIMLO, 


410 


0176 


0000 


WORK1, 





0177 


0201 


AERR. 


ERR 
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0200 »200 

/DCA ERROR. CHECK ALL MEMORY 



0210 


9020 


JMP 


START 


0201 


0000 


ERR, 




0202 


7604 


LAS 




0203 


7004 


RAL 




0204 


7710 


SPA 


CIA 


0205 


9601 


JMP 


I ERR 


0206 


4265 


JM8 


PHO 


0207 


1175 


TAD 


LIMLO 


0210 


3010 


OCA 


WORK 


0211 


1410 


TAO 


I WORK 


0212 


7640 


S1A 


CLA 


0213 


4233 


JMS 


ER1 


0214 


1010 


TAD 


WORK 


0215 


7041 


CIA 




0216 


li74 


TAD 


LIMHI 


0217 


7640 


SiA 


CLA 


0220 


9211 


JMP 


.-7 


0221 


1374 


TAD 


E 


0222 


4351 


JMS 


PRINT 


0223 


1375 


TAD 


CR 


0224 


4351 


JMS 


PRINT 


0225 


1376 


TAD 


LF 


0226 


4351 


JMS 


PRINT 


0227 


7604 


LAS 




0230 


7700 


SMA 


CLA 


0231 


7402 


HIT 


/HALT ON ERROR 


0232 


5601 


JMP 


I ERR 






/MEMORY LOCATION WRONG (MAYBE) 


0233 


0000 


ER1, 




0234 


1010 


TAO 


WORK 


0235 


7041 


CIA 




0236 


1167 


TAO 


FROM 


0237 


7650 


SNA 


CLA 


0240 


5633 


JMP 


I ERl /FORGET IT. THIS IS LOC PROM 


0241 


1010 


TAO 


WORK 


0242 


7041 


CIA 




0243 


1173 


TAD 


FROMP1 


0244 


7650 


SNA 


CLA 


0245 


9633 


JMP 


I ERl /FORGET IT, THIS IS LOC FROM 


0246 


1372 


TAO 


L 


0247 


4351 


JMS 


PRINT 


0290 


1010 


TAD 


WORK 


0251 


4310 


JMS 


TYPAC 


0292 


1010 


TAD 


WORK 


0253 


3176 


DCA 


WORK! 


0254 


1373 


TAD 


C 


0255 


4391 


JMS 


PRINT 


0296 


1576 


TAO 


I WORK! 


0297 


4310 


JMS 


TYPAC 
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0260 1375 TAO CR 

0261 4351 jms PRINT 

0262 1376 TAO IF 

0263 4351 JMS PRINT 

0264 5633 JMP I ERl 

/PRINT FIRST LINE OF ERROR 

0265 0000 PHD, 

0266 7200 CLA 

0267 J367 TAO F 

0270 4351 jms PRINT 

0271 1167 TAO FROM 

0272 4310 JMS TYPAC 

0273 1371 TAO A 

0274 4351 jms PRINT 

0275 1166 TAO OPAO 

0276 4310 JMS TYPAC 

0277 1377 TAO 

0300 4351 jms PRINT 

0301 1170 TAO QPER 

0302 4310 JMS TYPAC 

0303 1375 TAD CR 

0304 4351 jms PRINT 

0305 1376 TA q LF 

0306 4351 jms PRINT 

0307 5665 jmP I PhD 

/TYPE AC CONTENTS IN OCTAL 

0310 5310 TYPAC, JMP , 

0311 3366 OCA SAVE*3 

0312 1366 TAO SAVE*3 

0313 7012 RTR 

0314 7010 RAR 

0315 3365 0CA SAVE*2 

0316 1365 TAO SAVE*2 

0317 7012 RTR 

0320 7010 r aR 

0321 3364 DCA SAVE*1 

0322 1364 TAD SAVE+1 

0323 7012 RTR 

0324 7010 RA « 

0325 3363 D CA SAVE 

0326 1370 TAD SPACE 

0327 4351 JMS PRINT 

0330 1357 TAO FOUR 

0331 3360 DCA c tr 



0332 1363 LUP. TAD SAVC 

0333 0361 AND HSK7 

0334 1362 TAD TW6 



JCA TE! 


ST 


PAL10 


V141 9-JUN-71 


0335 


4351 




JMS 


PRINT 


0336 


1364 




TAD 


SAVE*1 


0337 


3363 




OCA 


SAVE 


0340 


1365 




TAD 


SAVE*2 


0341 


3364 




DCA 


SAVE*1 


0342 


1366 




TAD 


SAVE*3 


0343 


3365 




OCA 


SAVE*2 


0344 


2360 




ISB 


CTR 


0345 


5332 




JMP 


LUP 


0346 


1370 




TAD 


SPACE 


0347 


4351 




JMS 


PRINT 


0390 


57J0 




JMP 


I TYPAC 


0351 


0000 


PRINT, 







0302 


1046 




TL8 




0353 


6041 




Tsr 




0354 


5353 




JMP 


.-1 


0355 


7200 




CIA 




0356 


5751 




JMP 


I PRINT 






/CONSTANTS 




0357 


7774 


TOUR, 


-4 




03*0 


0000 


CTR, 







0361 


0007 


MSK7, 


7 




0362 


0260 


TW6, 


0260 




0363 


0000 


SAVE, 







0364 


0000 









0365 


0000 









0366 


0000 









0367 


0306 


r, 


306 




0370 


0240 


SPACE, 


240 




0371 


0301 


A, 


301 




0372 


0314 


L, 


314 




0373 


0303 


C, 


303 




0374 


0305 


E, 


305 




0375 


0215 


CR, 


215 




0376 


0212 


IF, 


212 




0377 


0317 
0400 


0, 
• 400 


317 




0400 


0000 


SUB, 







0401 


1207 




TAD 1 


PASS 


0402 


3006 




DCA i 


CNT2 


0403 


1013 




TAD 1 


Hi 


0404 


6046 




TL.S 




0405 


7200 




CLA 




0406 


9600 




JMP : 


I SUB 


0407 


7771 


PASS, 

s 


7771 
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